home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
multisb.zip
/
DOORS.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-02-02
|
6KB
|
289 lines
@ECHO OFF
if '%1'=='' goto ERROR
echo
echo Game to play : %1
echo First name : %2
echo Last name : %3
echo Node number : %4
echo Baud rate : %5
echo Comm port : %6
echo Graphics : %7
echo Time Left : %8
c:
cd\sbbs\n%4
dor t=-2 t=45
if '%5'=='14400' dor b=9600
if exist i:\sbbs\*.n%4 del i:\sbbs\*.n%4
goto %1
goto ERROR
:OOII
if exist i:\sbbs\ooii.* goto SORRY
rem > i:\sbbs\ooii.n%4
copy dorinfo1.def c:\util\ooii\dorinfo%4.def
echo Creating User Info Files... > COM%6
cd\util\ooii
ooinfo 11 \util\ooii\ %4
echo Running Maintenance... > COM%6
maintoo
echo Loading OOII 9.97ß ... > COM%6
ooii
rem oonews
del c:\util\ooii\dorinfo%4.def
goto END
:CONC
if exist i:\sbbs\conc.* goto SORRY
rem > i:\sbbs\conc.n%4
if not '%5'=='0' dor b=%LOCK%
qkdoor qbbs c:\util\conc\pcb14
cd\util\conc
conc14 conc1.cfg
goto END
:KENO
if exist i:\sbbs\keno.* goto SORRY
rem > i:\sbbs\keno.n%4
if not '%5'=='0' dor b=%LOCK%
qkdoor qbbs gap
copy c:\sbbs\n%4\keno.cfg c:\util\keno > nul
cd\util\keno
keno
goto END
:CASINO
copy dorinfo1.def c:\util\casino\dorinfo%4.def > nul
cd\util\casino
casino %4 c:\util\casino qbbs
del dorinfo%4.def
goto END
:GLOBAL
if exist i:\sbbs\global.* goto SORRY
rem > i:\sbbs\global.n%4
cd\util\global
war /r c:\sbbs\n%4\dorinfo1.def
goto END
:TOPGUN
if exist i:\sbbs\topgun.* goto SORRY
rem > i:\sbbs\topgun.n%4
if not '%5'=='0' dor b=%LOCK%
qkdoor qbbs c:\util\topgun\pcb14
cd\util\topgun
tgtrivia tgtriv1.cfg /noanswer
goto END
:PIMP
if exist i:\sbbs\pimp.* goto SORRY
rem > i:\sbbs\pimp.n%4
qkdoor qbbs c:\util\pimp\gap
dor p=0 b=0
qkdoor qbbs c:\util\pimp\wildcat
cd\util\pimp
doorway sys /i:pimptxt.asc /o:t /v:d /b:msz /m:30 /p:pimpwars.exe /C /1
goto END
:YANKEE
if exist i:\sbbs\yankee.* goto SORRY
rem > i:\sbbs\yankee.n%4
if not '%5'=='0' dor b=%LOCK%
cd\util\yankee
yt c:\sbbs\n%4\dorinfo1.def
goto END
:DRAG
if exist i:\sbbs\drag.* goto SORRY
rem > i:\sbbs\drag.n%4
cd\util\mcrace
mcrace c:\sbbs\n%4\
copy mcrace.scr c:\sbbs\text\d-top10.asc > nul
goto END
:QSLOT
if exist i:\sbbs\qslot.* goto SORRY
rem > i:\sbbs\qslot.n%4
cd\util\qslot
qslot
goto END
:TW11
copy dorinfo1.def c:\util\tw11\dorinfo%4.def > nul
cd\util\tw11
twmaint %4 /b /f /c%6
tw2 %4 /f /c%6
del c:\util\tw11\dorinfo%4.def
goto END
:FISH
if exist i:\sbbs\fish.* goto SORRY
rem > i:\sbbs\fish.n%4
copy dorinfo1.def c:\util\ffs\dorinfo%4.def > nul
cd\util\ffs
fishing 1 c:\util\ffs %4
fishtext c:\sbbs\text\d-top12.asc c:\sbbs\text\d-top12.ans
del dorinfo%4.def > nul
goto END
:BARONS
cd\util\barons
barons %4 c:\sbbs\n%4 qbbs
goto END
:SUB
if exist i:\sbbs\sub.* goto SORRY
rem > i:\sbbs\sub.n%4
if not '%5'=='0' dor b=%LOCK%
qkdoor qbbs c:\util\sub\gap
cd\util\sub
sa
goto END
:PHANT
copy dorinfo1.def c:\util\phant\dorinfo%4.def > nul
cd\util\phant
phant %4
goto END
:PYRO
if exist i:\sbbs\pyro.* goto SORRY
rem > i:\sbbs\pyro.n%4
cd\util\pyroto
if '%6'=='1' pyroto /DOOR/%2_%3/%8/1016
if '%6'=='2' pyroto /DOOR/%2_%3/%8/760
goto END
:DYNASTY
if exist i:\sbbs\dynasty.* goto SORRY
rem > i:\sbbs\dynasty.n%4
qkdoor qbbs c:\util\dynasty\gap
cd\util\dynasty
if '%7'=='0' doorway sys /o:t /f /b:x /m:30 /p:dynasty.exe %2_%3 N
if '%7'=='1' doorway sys /o:t /f /b:x /m:30 /p:dynasty.exe %2_%3 C
echo >> c:\util\dynasty\dynasty\dynasty.sco
copy c:\util\dynasty\dynasty\dynasty.sco c:\sbbs\text\d-top18.asc > nul
goto END
:STACKEM
cd\util\stackem
stackem stackem.cfg c:\sbbs\n%4\dorinfo1.def
goto END
:USBBS
cd\util\usbbs
usbbsdor.exe usbbsdor.cnf c:\sbbs\n%4
goto END
:LOD
if exist i:\sbbs\lod.* goto SORRY
rem > i:\sbbs\lod.n%4
copy dorinfo1.def c:\util\lod\dorinfo%4.def > nul
cd\util\lod
game /N%4
del dorinfo%4.def
goto END
:MELEE
if exist i:\sbbs\melee.* goto SORRY
rem > i:\sbbs\melee.n%4
cd\util\melee
copy c:\sbbs\n%4\dorinfo1.def > nul
melee
del dorinfo1.def
goto END
:2002
if exist i:\sbbs\2002.* goto SORRY
rem > i:\sbbs\2002.n%4
cd\util\2002
copy c:\sbbs\n%4\dorinfo1.def > nul
tw2002 -qbbs
del dorinfo1.def
goto END
:DWARZ
if exist i:\sbbs\dwarz.* goto SORRY
rem > i:\sbbs\dwarz.n%4
cd\util\dwarz
copy c:\sbbs\n%4\dorinfo1.def > nul
dwarz
del dorinfo1.def
goto END
:CDR
if exist i:\sbbs\cdr.* goto SORRY
rem > i:\sbbs\cdr.n%4
copy dorinfo1.def c:\util\cdr\dorinfo%4.def > nul
cd\util\cdr
cdrdoor /N%4
del dorinfo%4.def
goto END
:TOC
if exist i:\sbbs\toc.* goto SORRY
rem > i:\sbbs\toc.n%4
copy dorinfo1.def c:\util\toc > nul
cd\util\toc
chaos
del dorinfo1.def > nul
goto END
:TREK
if exist i:\sbbs\trek.* goto SORRY
rem > i:\sbbs\trek.n%4
qkdoor qbbs c:\util\trek\gap
cd\util\trek
sttos door.sys
goto END
:SHOOTER
if exist i:\sbbs\shooter.* goto SORRY
rem > i:\sbbs\shooter.n%4
copy dorinfo1.def c:\util\shooter\dorinfo%4.def > nul
cd\util\shooter
shrpshtr %4
del dorinfo%4.def
goto END
:SOL
if exist i:\sbbs\sol.* goto SORRY
rem > i:\sbbs\sol.n%4
copy dorinfo1.def c:\util\sol\dorinfo%4.def > nul
cd\util\sol
sol sol%4.cnf
solbull
del dorinfo%4.def > nul
goto END
:WOF
copy dorinfo1.def c:\util\wof\dorinfo%4.def > nul
cd\util\wof
wheel wheel%4.cfg
del dorinfo%4.def > nul
goto END
:TYAHT
copy dorinfo1.def c:\util\tyaht\dorinfo%4.def > nul
cd\util\tyaht
yahtzee yahtzee%4.cfg
del dorinfo%4.def > null
goto END
:ERROR
echo OOPS! No command line parameters....
goto END
:NO300
:SORRY
echo %2 %3 Told of person playing on other node.
echo Sorry %2, someone is playing that game on another node. > COM%6
:END
echo Reloading BBS, Please Wait... > COM%6
if exist i:\sbbs\*.n%4 del i:\sbbs\*.n%4
c:
cd\sbbs\n%4